﻿Public Class frmLoading

    Private Sub Message_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub frmLoading_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Try
        '    Dim con As String = GetConnection(bolKetNoiCSDL)
        '    Dim cls As New clsHoSoCapGCN
        '    cls.Connection = con
        '    cls.XoaHoSoRac("spDonDacHeThongKoBanDo")
        '    cls.XoaHoSoRac("DonHoSoRacCoBanDoCacPhuong")
        '    cls.XoaHoSoRac("sp_XoaHoSoRac")
        '    'MessageBox.Show("Đã xong")
        '    Me.Close()
        'Catch ex As Exception
        '    MessageBox.Show("Lỗi dữ liệu", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        'End Try
    End Sub
    Private Sub btnQuetDon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuetDon.Click        
        Me.Height += 26
        PictureBox1.Visible = True
        btnQuetDon.Text = "Đang xử lý       "
        btnQuetDon.Enabled = False

        Try
            Dim con As String = GetConnection(bolKetNoiCSDL)
            Dim cls As New clsHoSoCapGCN
            cls.Connection = con
            cls.XoaHoSoRac("spDonDacHeThongKoBanDo")
            cls.XoaHoSoRac("DonHoSoRacCoBanDoCacPhuong")
            cls.XoaHoSoRac("sp_XoaHoSoRac")
            'MessageBox.Show("Đã xong")
            Me.Close()
        Catch ex As Exception
            MessageBox.Show("Lỗi dữ liệu", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try

        Me.Close()
    End Sub
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class